00100	ARRAY F1,F2,F3,F4(512);
00200	VARIABLE /AA;
00300	SRATE←25000;MAG←512/SRATE;SPEED←2;NCHNS←1;
00400	COMPILE;
00500	INSTRUMENT VLNC;
00600	OSCIL[10](MAG,10*(MAG/P2),P11);
00700	OSCIL(U1,P15*MAG,F1);AA←U2*P13;
00800	INTRP(P6*P5*P16*MAG,P7*P5*P16*MAG,P12);
00900	OSCIL(U3+P14*U3*(U2/MAG),P5*P16*MAG+P5*P16*AA,F1);
01000	ZOSCIL(P3*P9,MAG/P2,P11);
01100	ZOSCIL(U5,U4+P4*P16*MAG+P4*P16*AA,F1);
01200	ZOSCIL(U5*((1.0-P9)/P9),U4*P10+(P16*MAG*P8)+(P16*P8*AA),F1);
01300	OUTA←OUTA+(U6+U7);
01400	END;
01500	INSTRUMENT VLN;
01600	ZOSCIL(P3*P9,MAG/P2,P11);
01700	INTRP(P6*P5*MAG,P7*P5*MAG,P12);
01800	OSCIL(U2,P5*MAG,F1);
01900	ZOSCIL(U1,P4*MAG+U3,F1);
02000	ZOSCIL(U1*((1-P9)/P9),P8*MAG+(P10*U3),F1);
02100	OUTA←OUTA+U4+U5;
02200	END;
02300	FINISH;
02400	SYNTH(F1);1 1 999